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For i ■ 

Message8ox.Sh 

Next 



i +- 1 
i ■ i + 1 


Example 8 - 'do while/loop' recursion 
Dim i As Integer - 0 
Do While i < Integer.Parse(TextBoxl.Text) ~ ? 

I 8 

I 9 

Lo °P lie 

Message8ox.Show("The final value was: " & i.T^n 

1 12 

113 

' Example 9 - combining array and branching sta 14 
‘Dim myArray() As String ■ {"j-aj*!" 


‘Dim i fT 
'For i ■ 

' If 


Private Sub l 

' Examp. 
If Combe 
Mes; 
Co* 
End If I 


‘ Examp: 

‘ els* 
If Combe 
If Co 


hen 


Button 1 






) 4_la 


End If 


’ Example 2 - Embedded 'if/then* statements, 
"else* statemtfe t * - 
If ComboBoxl.Te: 

If Combo6o)(3 
Message! 

Else 

MessageE 
End If 


Else 


MessageBox.S 


Label 1 




As System.0bject # 74 
75 

itement syntax 76 

n 

78 
t9 
>9 
\1 
\2 
>3 
>4 
85 


Luu-) 


statements. 


_ Ben 

MessageBox.Show(“ c joJU") 86 

Else 87 

Message8ox.ShowC.Uj i jl_S1 i j i") 88 

End If 89 

Else 9 © 

Message8ox.Show( M OjJL>i jJU") 

End If ^2 

^3 

Example 3 - case/select branching statement 94 

Select Case l^istBoxl.Selectedltem.ToString^j^^^ms 


‘For i - 0 
If myA 

Me 

Ex 

End If 

Next 



j!") 


' Example 10 - recursion and branching combined 

Dim i As Integer 

For i ■ 0 To listBoxl.Selectedltems.Count - 1 

Select Case ListBoxl.Selectedltems(i).ToString() 

Me s s age Bo x .Show (** j_j y, t ) 

Case "JL-Lj" 

Mes sageBox . Show( " J LJU" ) 

Case "Jj-ulj" 

MessageBox.Show(" jj » *” ) 

Case 

MessageBox.Show( l_*L-* j ") 

End Select 

Next 
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Properties 
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LjJJJ^J.4 

jjIjI! o-J^' 
Variables-!' <j=- ^kl 

djIjjAlall L_SJ^)3U 4jaj£.2 
CjljjAlall £-J jil A_iaj£.3 

Clllj ; iAlA]l <^3 ^axj.4 

LjJJJ^J.5 
(Jjj j-ii) 

If...Then J^i.1.2 

Select Case,: : 4^u]l J^l.2.2 
Arrayscij^^i Cj!j4*1g. 3 
for/each 4_£LaJI AUaJI .1.4 

for/next .2.4 
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.Hello World Jj' j 
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Microsoft Visual Basic 2010 Express-!' 



:t ULS3ll.l 



1. Start menu » Programs » Microsoft Visual Studio 2010 Express » Microsoft Visual Basic 
2010 Express 

2. New Project... 

3. Windows Forms Application ia'ji!' *Lijl 

4. a ix ' olalill 



Microsoft Office 
Microsoft Silverlight 


P> Microsoft Visual Studio 2010 Express 



Program 



Help and Support 

I fSjj Run... 

j^Oj Shut Down... 


M 
M 
' M 
, 0 


H 

m 

m 

II 

r 


MiraScan V6.3 (5000 series) 

Mobile Witch Remote Control 

Mozilla Firefox 

Nokia 

Orbit 

Real Alternative 
Scribus 1.3.3.14 
Startup 
Windows Live 
WinRAR 

Yahoo! Messenger 
Applian FLV Player 
Internet Explorer 
MediaDirect 
Windows Calendar 
Windows Contacts 
Windows Defender 
Windows Live Messenger 
Windows Live Movie Maker 
Windows Live Photo Gallery 
Windows Mail 


°^> Try Visual Studio 2010 Professional 


Microsoft Visual Basic 2010 Express 
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Am <ui j ) ljU 


j (j>»» ) ^U>ijJ _du LqjS ^^)juo]| Ak Ai qj£j AjjuUJ^)]! A^Aj^all AjjaiLaiVl dlUjSall ^pa^adai 

Ak tgj2 



^al g <qH JaJ^jai - 2. 


File Edit View Project Debug Data 

.j\J Jll-d J A -J & jt 


Jools Window Help 

~ ^ I ^ -1 0 


j ci *b 1 «g g ^ ga a aj 

(j^ajlx£_XA2U ^Idll Jj-a AljS.^j J 4 i ^3 Jj j£j 


Solution Explorer - 2 


AIj ^ j^)jula]| ^9 A <aAaduba]| dll jjlSlI j ^)j^aLisJl All ^da A admail C5^ (J^Sj 
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WindowsApplicationl 
liM| My Project 
Forml.vb 


Properties - 3 


(jLalVi ^ (j-ojVl (--ijLaJl (jj£j J ... t pi jjoA 


Cj) q 


/ 4 U L -V 




Properties 


- X 

1 Forml System. Windows.Forms.Fc t 

* - 

S=: 


13 

\* i 

[> 

Cursor 

Font 

Default * 

Microsoft Sans !,— 


ForeColor Controller 


FormBorderS Sizable 
PJghtToLeft No 
RightToLeftL; False 
Text Forml 

l l U1 ' I £~ C I 

Text 

The text associated with the 
control. 
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Cj!I - 4 


/& 



^qU^)J (J j! <C-1 n^i j ^oU^jl! ^J L_flJ^)ad! j 'La.v^ll — (JjVl (jjoj-il! 
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La£ <jc- Aic> j j' ^laJjai TOOlbOX (_3j. Vh«o ^lc- Alc> 

J< joill J ^juia 



J^jC- \ <LujLai - 5 

ajjouj^)]| S^aUll j 


Forml.vb [Design] X 
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<C -1 u^i J ^oqU^)j]| J — (JjVI 
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Hello world Jj>.3 


jI L L^&LuaLu j (JC. TlM ^ tilli j ViSUal BaSicJt ji&l J^AXJ 





Button ® Button 


Forml.vb [Design]* X 
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Forml 


. Toolbox jjjc. (jjl^) 1 

lax^al l Common Controls <>- 2 

.AjjuljjjII ajislill ^2 <*jJa j ^ '•>■ ■ ■<! - 3 


Cf -Button 

(JjJjJLlLa ilLa* ■ 

^Double click 
.Button>j 




idlL: 


C Button 1 j 


O.U- 



@ Button 


0-qU^jj (J J A£>\ n^i j ^oqU^)j]| J — (JjVl 
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siaU till Double Click Jaiujal- 4 



Jj£]| 4jtli£ (jl£-a ^ I_u£l - 5 


MessageBox.Show("4^j-> W Hello World!") 
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a -v a. ^-11 I oialj j -J*- a IsLj jj Jliij'iI tdjS-aj 
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I File Edit View Project Debug Data Tools Window Help 

hs 



i, 'z i -i - ► -a i;i *i | <g a 1 je s a s ; 

■a 


Forml.vb [Design]* 

t Solution Explorer ^ ^ X 


y ^ Buttonl 


~| / Click 


□ Public Class Form! 

□ Private Sub Buttonl_Click( ByVal sender As System-Object ByVal 

r,essageBoK.Show( ,r pJUt_5l I ^ jl Hello World!") 

End Sub 
End Class 


WindowsApplicationl 
Wai My Project 
-11 Forml.vb 



V J a '3 I =5 

iaji ^ J Start Debugging (F5) | Debug ^ ^ . g 


f- 

5J WindowsApplicationl 

- Microsoft Visual Basic 2010 Express 


[■=> 

@ *££-r 

File Edit View Project Debug Data 

Format 

Tools Win 

dow Help 


[i negm-iagl 

A ID 

— o 

-1 - c* ^ 

(9ja 



.Debug-J ^F5 C 5 ^ 

► ^ 1 3 | ^ 

^^tar^ebuggin^F5^ 






'alslj j' Jjjx'hx) ^ 


(3 


"1 X -kxjjal Ak- J - 8 
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File » Save All Jaia. j g-aU jj Jj' l>* -^3- 9 




.Save -2ai-^al - 10 
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i tillcS CLllUll j (^ISII ClllaxCa C^l^ till laJ ^jldll ^1 C* t-*» CaJ l ^ 1 ic. j 

cljIciLoiaII cL^q ^ Hello World ^j^iuill • 
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A CjUx^iIIj LajLaji ^ \x \ I j ^ ^3 



175x23 






cJxlst 


llxjo 


CjVI Ja^ Jj£ 4 -Aj£ j Button JJ JjVl C5^ ^ ^ 

L<u3 1 g A^n/nn ^jll ^)j^alj*Jl ^3 <Lalc* J (j^ajL^aiJl 
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location 1 


Properties T ^ X j 

Button 1 System. Windows.Forms.Butto t 


+!== 

*- 

zl 

m 

* 

|ia 


CausesValidatio True 


a Layout 



Anchor 

Top, Left 


Auto Size 

False 


AutoSizeMode 

GrowOnly 


Dock 

None 

J 

Location 

135; 56 


X 

135 


Y 

56 

> 

Margin 

3; 3; 3; 3 

> 

Maxi mum Size 

0; 0 

> 

MinimumSize 

0; 0 


Location 

The coordinates of the upper-left corner 
of the control relative to the upper-left 
corner of its container. 


AiLui4l JxUjj X) Y j X : u iU^ L*. c> dJX 

AiLoiAll ^9 j A+J J\ 

.JlUI Jlill 
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WindowsApplicationZ - Microsoft Visual Basic 2010 Express 

[□ | 0 | 

=»= 

1 File Edit View Project Debug Data Format Tools Window Help 

i. -j A Z Z -- - ► i 3 -■ j x £ A *3 ^ 



Forml.vb [Design]* X | 


Solution Explorer 


▼ X 


I q I ® a I m a 

iij!_a __ a _a:_j.r. 


Prop 

erties 


▼ ^ X 

1 B utton 1 System.Windows.Forms.Butto 

• 

* - 

* - 

n 

m 



CausesValiclatio True 

* 

j 

Layou 





Anchor 

Top, Left 



AutoSiie 

False 



AutoSizeMocle GrowOnly 



Dock 


None 


j 

Location 

81‘ 94 



X 


81 



Y 


94 


[> 

Margi 

in 

3; 3; 3; 3 

. 

[> 

MaximumSize 0; 0 


[> 

MinimumSize 0; 0 

- 

1 Location 




1 The coordinates of the upper-left corner 1 

1 of the control relative to the upper-left 


1 corner of its container. 

J 


.Text ofM - 2 

C5^ cA 3 (J-ajJI J 


1 Forml.vb [Design]’ X j 

w Soli itinn Fxnlnrpr 


,*-: h -- v ' | Properties T □ X [ 


"9 Forml 




n 

.O. 

n 

i 

Algoharism 

J) 

u 

.-u-. 

u ^ m 



B utton 1 System . Wi n d o ws . F o rm s . B utto n 


n m - 


ImageAlign 

MiddleCenter 

A 

Imagelndex 

1 1 [none] 


ImageKey 

1 1 (none) 


ImageList 

(none) 

—7 

PJghtToLeft 

No 


Text 

Algoharism 


TextAlign 

MiddleCenter 


TextlmageRelation 

Overlay 


UseMnemonic 

True 


UseVisualStyleBackCoh 

i True 


UseWaitCursor 

False 



4 Be 


Text 

The text associated with the control. 
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.’Backcolor 3 


"9 Forml 


Properties 


n 

■.n.I 

□ 

d 

Algoharism 

5 

u 

.0. 

U 



B utton 1 System . Wi n d 0 ws . F 0 rm s . B utto n 


!l! llmrl 


AccessibleRole 


Default 



BackColor 

| | 255; 128; 255 


Backgrouncllmage 

|_ | [none] 


BackgrounclImageLayc Tile 


Cursor 

Default 


> 

FlatAppea ranee 



FlatStyle 

Standard 



Font 

Microsoft Sans Serif; 8.25 


ForeColor 

m ControlText 


Image 

1 1 [none] 


ImageAlign 

MiddleC enter 

- 


Backtolor 

The background color of the component. 


:Forecolor gjJ- 4 


"9 Forml 


1 ^ 11 m 11^1 

n 

.n. 

n 

C 

Algoharism 

D 

LJ 

. 0 . 

U 



:Font -tell- 5 


Font 


ForeColor 
Image 
ImageAlign 

Font 

Thefont used to display text in the control. 


Microsoft Sans Serif; 
| | 0; 0; 192 

I I (none) 

MiddleC enter 
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▼ n X 

B utton 1 System . Wi n d ows. F o rm s . B utto n 

T 

♦ - 

* - 

41 

m 

J M 


Visible 

T rue 

>■ 


* 

[> (ApplicationSettings) 


(DataBindings) 

Tag 

D esig n 

(Name) 

B utton 1 

GenerateM ember 

T rue 

Locked 

False 

Modifiers 

Friend 

Focus 


CausesValidation 

True 


0 


(Name) 

Indicates the name used in code to identify the object. 


U 1 


Microsoft Visual Basic 2010 Express-^ ^ 

:(Name) 

AjlI ^9 (j!j 


^<UudJ (jl • 

BtnOk 

^aLkll \l (ji ^Jau 

j jj cilli j OK-^ 



JjjAL^a \*\\ ^Ia^ILujI lilifLaJ ilJ (Jiilll .Ijjj J jj£) lilLaJ ClliS jl • 


Properties 


^ n x 


Form 1 System. Wi n d ows. Form s. Form 


Btn Algoha rism System . Wi n d ows. F o rm s . B utto n 
Btn 0 k System . Wi n d ows, F o rm s . B utto n 


Forml System. Wind ows. Forms. Form 


(ApplicationSettings) 



> (DataBindings) 



Tag 


— 

d 



(Name) 

Forml 


Language 

(Default) 


Localizable 

False 


Locked 

False 


d 



CausesValidation 

True 


(Name) 



Indicates the name used in 

cod e to id entity th e o bject. 



21 














































algoharism.blogspot.com 


Microsoft Visual Basic 2010 Express-!' 


AxjL kJi CjI jjV) Cj) ^ j^UsJ) ^bj.2 
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J^\ Ic*Jjji CljljJiVl A-ja J CljljJiVl (J3 j>Vu«o jA IjiA VjI 



IaJU^J A u» a <i±laj > l£jlll ^al ^)J) 

@ Button 

Button jj 

Lai L_ajUajll ^ ^^klLoU J AiloJl 

Ijla LgI j SA^> ^ic* cJ^ 

0 CheckBox 

^ulauil (Jjllua 
"(jb^Vl) 

£jlalluiJ V ^lc* ^'Vudj 

^gUjjII (JjXjuoJ c-Lj! IgKWl ^iklLuuJI 

A Label 

label 

c j£ a j ^A J 

(JjxjuSII *UjI ^iklLuuJI Ai^)x>u AjL) jia^ 

abl TextBox 

TextBox 
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@ RadioButton 

Radio button 

^Ax^aJ j Clj| SJlO (JJJ jLu^^U ^^iaU jA j 

(jj^j LcAic. 

f_v ListBox 

List Box 

j* jTextbox -Jl j ListBox -Jl u£ j* j 

<jj£j Lq.ViC. ^Ax^aJ j <jJJ jLu^^U ^^kluU 

!jjj£ cijIjljlkVI 

j||| ComboBox 

Combo Box 


Jlla Jtla • 
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tom boBox Tasks 
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Unbound Mode 

Edit Items... Edit jt ems 1 $j 2 ejaU j^kL 
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Status Strip 
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Tool Strip 


;Menu strip ^jjAa Jli* ;Cj)jL£J) Jti* • 
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b 9 Forml 
]■■■■■■■. 

Type Herr 
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Properties 


* n x 

ToolStri pB utton 1 System. Wi n cl ows, F o rm s .T o o 1 Stri p t 

+ - 

0= ; 

41 

m 

9 |B 



Checked 

CheckState 

DisplayStyle 

Font 

ForeColor 

ImageAlign 

ImageScaling 


False 

Unchecked 

Image 

Segoe UI; 9pt 

m ControlText 

j ^J| System.Drawing 

Mid cl leC enter 

SizeToFit 


ImageTransparentColo [ ] Magenta 

RightToLeft No 

RightToLeftAutoMirror False 
T ed ToolStri pB utton 1 

TextAliqn MiddleCenter 

Image 

The image that will be displayed on the item. 



:Status Strip Jtia ;cj )^ Jtl* • 

cjIjjVi Status Strip i 



.jjji.VI ^status Strip J' £* 2 
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List Box, Combo Box, Menu Strip , -II <-stiUs • 

ej* fjc. ci±a-jl (....Status strip 



1.. "LU^ 

j*-* ^ 


J 


, jhn hlSj 

t; 

' c 

c 

. O .£ 

0 j£> 

■ji 


jjjj U j Edit Items j 4Jc. .LjuJal ^ 
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£jjLUI fJAuaj ^ ^uL^.4 


l\t &AA ^xxiVux) t A^_^Jj ^3 l^jlcr |^ l^kj A_LaJjan]t ^jL^aill IjA ^.Vq un 

A*g_^tj £$.1^)3 (Jg xxn j CllLa^ix>a ^lt (Jg xxn Jj^la J ^3 A-xALalt (JjJa3l 

^t AjklLuolj ^jig-ill ^AiiLaboll ^ic* 0-aU^)dil 


A^_^.lj Jj^lalt JjJa3lj IAiLuj # 

j SAaoVI” 43j \laJ j^3- 1 



jUkAj L5 1& J jLaull A*Jj Aj^ ^ Labels cJJ^ u' (>> (j\ 

u^' o^' uj^ : ^j J cM? c^' Buttons jtjjVl j owto ijac* ^ cAl# 

B ^(J^JOiSlj U£) a ^l3judll 


^l^Ij^)J| ^ ^ 7^'j) AAjIS tit ( > jSl A ^t AjlIHj A j^jfL&lt 0^t^)jll ^jl x^allt j A A Qi ^*t j^tt $iA # 

i CA\ALiAVt j (jd^ult ^t jLiull jjjxj ^^c-tj A-ij^lSIj A jjjfLa 
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J Cj \^j)\ lil ClAjLnll ^ jjJaj J ^j£jud ClAjLnll AjLj£ *iic*- 2 

V i ("(J}^ j* ^ j AlxViis v ' * 1 ^ 11 ] button iJ*?^ 

L_ajUaj j ^9 ^)l*l^.J ^jLg_i]| ^».1 VLuia]| (Jx, Vi 

V djULnll (JLk^l j t§_iic* l_ajIjlIa]| l-uILujVI j <jl jlVI ^jlVLujU 3 

uj^ button jj^ jllkis V JH*) l-$9 jA I ajIc- i j» V j jtl^j 

b ^ J^juoI 


^jLg_l]| ^a^lVLauJ] (Jg juoJ ^jL^aJ ^9 (jIa^)XJjuj j t^xlAj^aJ ^9 ^J^ 9 j Lilglljl • 

idjUUill jUk^l j Va^il (Jjj^a^11 

:Tab key- 1 

f'^iuil (jj^ jjII J Text Boxes-J' u^ <*.jl o* Tab jj iiuja. Ja 


;AiiiL4]) JLkJVt j^Lk ow jUM ^ Tab ^ Jtl* • 

# * * ^ 

C5^ ■^ Ja ' j' (c5^^' CS-* C - S 'J^VI -^J^ aJVL.) __ Debug JJ -LiJal- 1 

^ F 5 

- 2 
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A g a. -j a > «aJ j Ic-jJjjj jjSVI 
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£ expert settings £ Settings £ tools Tab order ^ jJ 

tab order -i view 




Forml.vb [Design] X 
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„ laxjJal ^j^aUxlt L-JJJjJ j-llxl] - 6 


Forml.vb [Design]* X | 

JiS Forml 

[^le File Edit lools Help 

B3l □ g 


r 4 *® ' 

/ 

@r- - 

D» ( 

vf* 

n4u 

j— mSJ 

B* 

©Ui 


y» 

© ok 

(^)canoel 


S ' Wfc 



:LayoutToolbar- 2 

,lgj|jLa-a j C-UJjjH AjL»C. J ~1C- CjIjJI JaJ^)juo jA j 

layout -i toolbars -aview layout ^>>' jU^V 


File Edit View Project Build Debug Data Format Tools Window Help 


i> -Ij -3> | 4 |'.= 12 | ^ * ^ w ^> | ► JJ J [j.-g -1 I ^ m % t3 5 ; 

I 5 
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^ * a j Ic-^LuJ — ^1511 
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;<Luajjx^1 j^alkSl ^jPin ^ Layout Toolbar <uii£ • 


J&. ; Aligns left- 1 








lUxll ^Ic- J Ctrl JaiuJallj jx*^'}C* ^jLiLkl 





^)j^aixJl ^)LmJ ^lc« x jj 4 ^)Loull Slil^a ^-Ic- - 
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^^j^ 1 J Ic-^LuJ CIjIj^VI — ^1511 








































algoharism.blogspot.com 


Microsoft Visual Basic 2010 Express-!' 




38 


A g a. -j a > «aJ j Ic-jJjjj jjSVI 
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I L_aJs> jLiLkl c j Lou! 

Uii jj cjUUJt jjj JliuVl lK>' j ‘ ( t 4f^ ‘ ‘ credit card ) j 

.(Tab order) 
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Microsoft Visual Basic 2010 Express-!' 


Events-!' jc. 


i ^ Aja-a^ill ^3 6 _j]aa. (J_jl jC- (jjj^ll l3A ^^3 L-fl^xHiuj 

"Event Driven g -*\jj " -j <-ij*5 ^Visual Basic Express 

.Programs" 

jj£j J 4 4_uij jj^jjjll QA j! jiJ £caljJj j* JJJ*J j\ jj AJai-Ja Mia Event t —^ jj^J 

13a (JaL^jj jl t “< (jl Lai ^AiAa 0 a_al_j)j]l 


:JjSfl ^ "Hello World f^l 4^' 4vV : ^ 



sjaL j^kil Button 1 Double C 


ick Aa.jJja 5Ja*jJa- 



AjjUI ^3 djl uAjujVI j ^_lc« <._ Uj>i ^ jjSil 




1 


2 
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^ j& Button 1 J :Button 1 

4jt>a 

\ _ 

^^)ll Juijj LS^" k >»tiy**vW tl ■ djck 

\ ▼ n x | 

\ T jii.i [Declarations) 

=^= 

tiruDiic li ass 

_ 


End Sub ^.'Private Sub i> 
lS^j£ j' Code Block 

jijSl! „Uj J* -saElLoll S-Uill j 


Private 5 u L^Urt t onlC ^c^^i v Va 1 sender As Sys 
.Show("Hellow wor 


End Sub 
End _ rl _ 


( K» . > i ' l)ciick cs^ - (4«'ja.Vi j=A 

Button 1 ts^- 


;em/ ^.'Public Class <> 
End Class 
j* j Method 

^ J > n\ > iiV I 


Public Cy* '4y jMsthod J ^^3 ml 4.ul n (jl 4aLa*JI 

End Class ^ j class 

j <jjl£ j) Aj^aLkJI ^ jCode Block -j j jj£i jAj 

jButtonl_Click j ^^j ^jjA? 

j Show ^ Button 1 ^ (Event j* j ) click ^ 

( Click^^' Response j* j ) "Hello World" JMessageBox 


Sh ift+F7 0° ^aajuojSI SiaU Jj j j£JI SjiaU 



^aII C. -laJuJall (jC- ^jSlI (jia^)C. ^adlaj 


Forml.vb 

▼ □ X 

qV Buttonl 

/ Click 

, 

□ Public Class Forml 

4 

El |Private Sub Buttonl ClickfByVal sender As System,Ob 


1 End Class_ 




Private Sub Buttonl_Click[ByVal sender As System.Object; ByVal e As System.EventArgs) Handles Button... 
MessageBox.Show["Hellow world"] 

End Sub 


100 % 


1 


■ ■ 


eady Ln 4 Col 20 

Ch 20 INS :i 
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uiSI uLS.2 


J J^jJajluj 4 Sisli ClAjjuoLuoi (J-^axJ j Jj£JI 4 jLj£ (jJl <jl ^xj 

^ ^IjVl La 

Lojj J(JJ J ^ a (3^ <*—itLall 3^ Vi <jl c^\j\c» (JjjJ AjI ^jl I'vj 

properties siaU scjj^ 3 Cf* j^jVl l_u£j j jl 



<1 jx «v*U (j£^j ^1 Properties siaU ^Events siaU <j jivs j 

-OJ*^ C5^J^ ^ 
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tillS.aj (jjxkl Event ^t^ll ^11 m\ - 


Properties 

^ □ x 

Buttonl System.Windows.Forms.Button 

- 

p )ii«k i- 


Buttonl_Click j^]| .. 


MouseCaptureChangi 

MouseClick 

d Appe, 

Paint 

* Behavior 

ChangelllCues 
ControlAdded 
Control Removed 
Help Requested 
QueryAccessibilityHel 


Click 

Occurs when the component is clicked. 



j<^ 11 (Jjj^ajll till cijlc-Events-^ 


J jx ^jll Double Click £-JaxjJall A'&a) C_JjO^ill J] Jjll Ak. - 

n,h'l fiisliSl 


Forml.vb* 


<ft Buttonl 


- | / MouseClick" 



Properties 

* n x 

B utton 1 System. Wi n d o ws. Fo rm s. B utto n 


- 

|a]4f HEi J 



d Action 


- 

Click ButtonljCfck 


. 

-n MouseCaptureChang 




B Public Class Form! 


E Private Sub Buttonl_Click(ByVal sender As System. Object ^ ByVal " 
MessageBox.Show(" r Hellow world”) 

End Sub 

,3 Private Sub Buttonl_MouseClick(ByVaI sender As System. Object 3 I 

End Sub 
End Class 


d A 

Paint 

d Behavior 

ChangeUICues 
ControlAdded 
ControlRemoved 
Help Requested 
Qu eryAc c essi b i I ityH el 

Sti rl pr h annaH 


E 


MouseClick 

Occurs when the control is clicked by the mouse. 
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New Project 1 1 M^t 


Recent Templates 

Sort by: 

| Default ▼ ] 

§ 1(1 [ 

Search Installed Templates 


Installed Templates 

Visual Basic 





1 

Windows Forms Application 

Visual Basic 

Type: Visual Basic 

A project for creating an application with a 

Online Templates 

m 

WPF Application 

’’i-.iai p a -|. yVindows user interface 


visuaTi'^---- 




Console Application 

Visual Basic 





Class Library 

Visual Basic 





WPF Browser Application 

Visual Basic 





- 2 

I CD | (5) 


LessonOS - Microsoft Visual Basic 2010 Express 


1 File Edit View Project Build Debug Data 

Format Jools 

Window Help 


F! yp Ifii Hi] ’ lU 0 G& 

3 I k 2 

| ^ pd t ^ 

■DCj^ | ► jj 

J -.= | ^ 

; J L ! J ~ — _± >.j 

+■ ■+ 

w 

L+J 

£ 

jja nD° i& 1 

^ =+ £+ a + 1 
_ □ + e + | 

SSI ^ ■ftl ^ 


w Solution Explorer 
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\ LS ^\ ^j Aa^-gjaII SASUll 3 


Forml.v 

CllAaJI Ale- 

gV B 

j.^wl'Click 

□ P 

Buttonl 

E3 

Private E 


\ 

▼ □ X 

\ -i 

| ¥ Click 


text 4-jtjSll Ajj^aLk ^ \9*\\ k H 
TextBoxl ^ 

y uy 


. 


Text Bo xl, Te xt = a ' 
Sub 
■ s 


rrr 


J i u#— 1 1 






j><-ii»\t ^ text A-i^Lk jj» n>« Buttonl j>.-»i»Mciick i.wll ajc. Ail ajI jlak j - 

TextBoxl 

Debug jj J*- Ak^all Ajc- 4 


r 

Lesson03 - Microsoft Visual Basic 2010 Express 


CZD 


File Edit View Project Build C 

• uP -/ A)d dP jt-laA 

[ebug 

jl 

Data 

— o 

Tools Window Help 

p * 

Sr 

lull 

lull 

lllll 

1 1 1 

•V 


Forml.vb [Design]* 


Forml.vb’ X 


▼ Solution E 


T 


Start Debugging (F5) 

-m i m ufl 
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EPrivate Sub Buttonl_Click( ByVal sender As fP 
TextBox| 



4_Ajl-3 lA u ^ J^jLudU Ajtj£ i VlC» - 


1 Forml.vb* 

T 

Solution Explorer v ^ X 

"I * 1 

^ Click 

m i ® is i [i a 


ijp 1 LessonOB 
i : -iil My Project 
I Forml.vb 


"% MaskedTextBox 
& RichTextBoxLancjuacjeOptions 
j J Ri c hT extB oxSel ecti o nAttri b ute 


j! *LajUj 

^3 4 CllLljlSJI 

4»j3 ^ 


TextBox 
c^y TextBo>d 
Common All 


Class TextBox 

Represents a Windows text [ 



<LgjI£ 

^ ^ l^_i3 

til jtiiaJl liljSx.j j 11 , " 4 Wo *41 

^jjo jtalLl ^jl k 11 

^ jl jLuaJl jl 

AiLuJlj A aY\W jt j AiASlI 

4_^alSJl ^Ic- L_flj3 ijll Aic. iaik^llxjo 
(IF* ^4^' 

4 >, 1 ' 


Forml.vb* X 


- -> Click 


orml 

b Buttonl_Click( ByVal sender 
xl.tel 


d 


Solution Explorer 


a I & ia I b m 

tjje] Lesson 03 
i : -JI My Project 
_| Forml.vb 



'■> Appenciled 

J? SelectedText 


^TTect k 

Public Overrides Property Text; 
Gets or sets the current text in tl 

^ TedAlign ^ 

TextLencjth 

|n 

Common All 

T 1 


£^.^<1 A-IjIaSI J ^gk ^j^aUxll ^Aj jj£Ai^Ct)L^.I^)jal (JlLaJ 

Event^^ ^ajU^xkl] 
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AjUS <ih&Luuj CjI jJ| # 3 


.aV^J^q j j j£JI AjU£ A-AaCt ^ <il^Lujjjud ^jj 

; j jl JjdLu 1 

Ai-iiaj Ai^}x>a lA *&^ tg-1 ClAJa^^La AjLj^ (J^Li <3*^^ j 

j£j| (jdx^a c-3^ A-LaAI (^jCr jl J 

^JaJjuj j " / " AJa^^La AjLj£ lA\^*\ 


Forml.vb* 


^ n x 

ft Buttonl 

-| / akk 

- 


□ Public Class Forml j^ 

□ Private Sub Buttonl_Click( ByVal sender As System. Object ,, ByV; 

TextBoxl-Text = "'j^JL^Ji ! r jT Laj-jj!" 

' tj ■• l g ~i 4—1 I ~L < |LJ ~L ~L S X I ! L a 
! j l » i * j_p- ^ t c 4_ifup- j«_j) j t 

4_a_lJDj ,5 i .*1 _ J Lift ^ 1 j .} J_S _ J I |jj 

']g-J L _ jj_l _ J I .1 L ■? L 1 J_L_C 

End Sub 
End Class 


AjI ^j£J J 4 L<u9 lA* 1 ^ 5 -^ jl ^ ^ ^9 Jcl)^ c-3^ (jl ^ A J 

A^.UaJ V jAjLj£ djJijl 13 dljic.Laijjuj !j& j 4 ^ 3 -jLu ^A] 3 jad jjuj 0*U^)3I Juid ^k (3 *aj 

Ai^-k V j ^l-^Al Cli9 ^11 

; c5 Ic.Vl (^k dj|j3^l AaJjdi ^ ^Ull cJ^ j J^ L_JjUxaII LS^ ^ixluj 

mpimmt 


Windows Application! - Microsoft Visual Basic 2010 Express 


File Edit View Project Build Debu 

i yp & gg * a m «-ja 


ita Tools Window Help 

■9-C M -P-l^|k JJ 


&. WindowsApplicationl - Microsoft Visual Basic 2010 Express 


L=J 


Jj^li j gkn . i j 


File Edit View Project Build Debug Data Tools Window Help 
! y i | ji -J . j 


Forml.vb’ X 


Forml.vb [Design]* 


ft Buttonl 


Comment out the selected lines. [Ctrl+K, Ctrl+C) 


^1 » tick 


□ Public Class Forjml 

Private Sub Buttonl_Click(ByVal sender As System. Objec 
TextBoxl.Text = i t ji 

Jm_J_Jl_J h _ 1 1 I S ^ i i ^ i _ i I 1 a 

f j_p- [j-Le 4_lii_^ jC_jJ j I 
4 Q u In. j lJ [ 4 j _i j *3 jl S I jj -J$ 

gj ! _ ~IJ L ’i | ■'i i o i. ~i .1 it! 

End Sub 
End Class 


□ 
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>( *i^11 ^jujI http:// :(ci^' 

J)\ g J^al- 2 

(J J Jk ^ a 4 \g xai AJL^la liji jl*Jal till £JJJ 

:juii£ fiSjVi 


Tools » Options : 



|^JUll£ jjJajuJI ^ nl>J ^alijVI ^Jaluj 
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j t ^Ja.b Button 1 1 > button events >■ -1 

J(J^.b 6 jLlikl (_£ jJI dl-laJI t . ■''N. L_uSl 

MessageBox.show("Name of Event") 

■kM\ djl^bu J 

Click • 
Enter • 
Leave • 
MouseHover • 


m A qjhjll (jc- FI -2axjJal Event ji'sl Event 



■'±j<A\ jtextbox u' -2 

MessageBox.show("Name of Event") 

;;UU]!Events -Jl ^ 

keyPress • 
KeyDown • 
Keyllp • 
TextChanged • 
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j JiiLLajI A j IaI Lq j djtjixlLolt La 
1L& (J£ ... Clj|j ; iiLlA]| ^ Clllijj*j]| (J^*-J 

1L& ^2 A aIxUjoi 
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ijjiUI Variables-!' Cf- 


u' j ^ cP) Aj j* j Variable 

li& ^^ jjjxj J 4 s-UjI j 4 jl Aj^^) caUUj 

^)Jjuj c-IjjI ^V j Aj l_a^)xj ^juj! aJ j 4 0/aU^)j]| ^)Jjuj ^jilLail 

^ ^jujVI (jjaiL ^)J^I jl <jJ^)jilLa Jcl£^ V j Aj L_fl^)XJ .li^j ^juj! <1 ^)-iilL«a <j£ j 4 

>1^.1 j 

£^IjjI C > l^kj jjaIaII ^jujI Aio 

A,B,.Y,Z or a,b,... v y,z : (csj*M) jl .1 

(_ 4 ] 4 14?) Aj^aLk CljL&Vic* VI .2 

End , Byte cJ-^ aj^^^]| aa!]| Aiajq^^ll caI^K\ l ^±A\ 1.1a VI .3 

J ^l£^)J ^AjJaJJ tiLudll .4 
; CAlj^iliA]! ^1 jjl ^jC* 


Jjtll 

CjjLlSLi 

*♦ * ♦ 

CjULull 

*♦♦ 

Data types 

ClUUJl £ljji 

2 byte 


Integer 

^ja»ua JJC- 

4 byte 


Long 

Jjjla JJC- 

1 byte 

false 0 J true 1 

Boolean 

■■ 

4 byte 

jjjud£ Lg_l ^I^C*I 

Single 

JjL« 

8 byte 


double 

£J J > 

8 byte 

a1a*JI y*y J Jjjuo^ Lg-J ^l^cJ 

Currency 

<1aC- 

1 byte 

4-&y^ AjULu yjJah 

String 

** * ** k 4 

8 byte 

jtj CIAjLlj ^j^ajJai) 

Date 

feuW 


^cJl ^Li 3 jl (^ia ^jjI£ 

Object 



jl ^Ui^)l Cy* AjIjVjj ^AxiaJJ 

variant 

A* 

1 j Jjiial! , 

jajuil c> (jViC'VI -3^ ~3 L_flj^)xj J 

dsljjAiaU JjjSj ^ ^ ^ j^J 


|A^a^)j]| S^U (J^.1^ ^j-ii-lLo-S 1 yy^ y* j 4 A^a^Jl S^U Ji.1^ 


Dim VariableName As DataType 
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;<ijLud]l CIjIjjaIaII jl\ aJiLgI 


UUJ*Z1\ 

Data types 

ljUU4| £| jjj 

Dim mylntegn As Integer = 3 

Integer 

i a 

Dim myBoolean As Boolean = true 

Boolean 


Dim myDouble As Double = 3.14 

double 

£JA> 

Dim myString As String = “Algoharism” 

String 



Variable AiLoJI 4iiLaVI 

C1j\ a\*\W c_u£j String Ajjoullj - 

Ls'small c>capital cijUISII i ViUi V - 

mylntegr=myintegr 



A^ajA] SisU (jk Aijjju j jJlIa 4jU£ AuL£ ; JlfU 

Lesson04 





Button 1 ^Double Click -3=^='- 

cjsi - 
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Igjbal.^ljqil j l^C>lj Clllj ; liCLa]| 
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Forml.vb* 



^ n x 

0$ Buttonl 

- 

¥ Click 

- 


1 □Public Class Forml 

2 | 

Private Sub Buttonl_Click(ByVal sender As System. Cl 


3 E 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 
17 


T Example la 

Dim myString As String = "Bob ,f 


T Example lb 

Dim mylnteger As Integer = 3 
Dim myDouble As Double = 3.14 
Dim myBoolean As Boolean = True 


End Sub 
End Class 


100 % - * 



LJjiMJul Q. 




String ^ - 

^a^ X\C* J " ^ String 4 jIj£ ^aJJ 

La J ^)4 x1aS ^jujI 4j] 

;<JLLa 


r 

Forml.vb* 

▼ □ X 

■cP Buttonl ▼[ ¥ Click 

’W 

13 


Jl 

~T~ 

14 

’ r Example lc 


15 

Dim hello As String 


16 

hello = "hello world" 


17 



IS 

1 j[—i_s-1 t il q * ih 1 _ j t _ jfl \ 1 a j ^ Iri i mi 

i _ 

19 

T hello 


2@ 

1 jr n * ■■'= i L _ S t jjjLJiSLp ijj _ 1 J_7-J _ ! ! _ $ J_a j 


21 

'hello world 

S- 

22 

'■'essageBox, 5how(hello) 


23 



24 

■4 _ j !_*0J _ j 1 I _ .'_r1 J £ i : . ~L 


25 

1 hello 


26 

I'-'.essageBox a S how ("hello 11 ) 


27 



2S 

End Sub 


29 

End Class 


100 % - 

k_ 

* | rrr J ► 





hello world <1^.j jhello <^a 


55 





















































algoharism.blogspot.com 


Microsoft Visual Basic 2010 Express-!' 




j£J| (jVI j 4 j Lg-C^lJ CLs\I La LLolx 



l^Ull jl_u£j j Button 1^? 4-^LiJI siali c > ^aLuj 


Forml.vb* 


▼ n x 

.^Buttonl 

/ Click 

- 

19 

'hello 


* 

2® 

[fH L ajH ~fc L _ S |> ^ L jS C _ 1 Jl_> J _ 1 ! _ d j_a j 

* 

21 

1 hello world 



22 

Mes s a ge Box . 5 how(hello) 


23 




24 

4 _ 3 L_gtf J__S 1 f I m j j h l j 


25 

1 hello ^ o i 



26 

Me s s a ge Box . 5 how ( 11 h e 1 lo ” ) 


27 




23 

1 Example 2| 


- 

29 

Dim firstTextBox As String = TextBoxl.Text 


30 

Dim secondTextBox 

As String = TextBox2.Text 

— 1 

31 




32 

Labell.Text = firstTextBox & 1f ni & secondTextBox 


33 

End Sub 



34 

End Class 



35 



T 

100 % - 

< 1 m 1 

► 
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;32 ^5-^ 28 j^ ki ^ Cy* ^1 ^\l 11 

' Example 2 

Dim firstTextBox As String = TextBoxl.Text 
Dim secondTextBox As String = TextBox2.Text 

Labell.Text = firstTextBox & " " & secondTextBox 

String firstTextBox j JjVi I ^ jjAA\ ^ 

TextBoxl \x Jl ^ Text jA 

J& j string cr^ secondTextBox j 

TextBox 2 ^ <-ij^'Text <rfu-^' 


Text Labell ajjSj j 

(Textboxl ^ j* j) firstTextBoxj^b]' 

(AiLuuJl ^ L_l a ^A La 4_a^lc. ^JiLaj La ^A j ) + 

secondTExtBox + 


leSu 


► J* jjVl ^gk Debug (Jf AijJal (JjLAI c> <-a>^ 

; JLlllS pAjjA\ F5 


AjVn $.aJI (jjdSJ ^3 (jjLudll ^j^juLaII C5^ Ia] 

^jJc. JaijJal J JjSlI ^jJc. (JJjla CF 26 J 22: (jJjlajJI t5* <—®Laj) 
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£l>ii Q# Jjjaall AjLS.3 

(JlLa ^9 1 g \* jui ^aJJ djL^Laua CjIjJaIiaII <jl (3^ (JjVI C5^ ^<^*4 

^ ^ Jj <j£ L # UjJ^k L qViVi ^lilb j tgxl Jjl ^ L <)VlVl CjIjjaIaII Ljajl J (CIAjUj 

^LglijUJj ^1 Z*L*xl\ 


(J J^\ $. 3 ^ L^jL^.Lud>i J ^J! 3j^J “ 



^1 djULull c > i ujjj <1 j*ju!a]| ciA^.Loia]| ^ ALajjii]| jA djUUill ^3 jji 3 ^ 3 * 

jAjL^la ^ic* Jllc (jia^)xiuj ^aJ Lo^JjLllLaj 4 ^3^j| 3^4^)^ 

:<3^ Implicity- 1 

Ai^ua) j <9 j^)xj ^1 clAjlnll jl 4^ua]lj 4 W ni £.Uj| j q 

B djajll ^k AiL^Laui 3 ?^ J L - J 

^Lsjjola 4 ClAjLnll ^3 jl\ 4 3 ^ 4_ijI£^ 3 ^a^c* 4jL^)ia]! nxj q 

\£jja\j Jjj^ Explicity- 2 

a djULn]lj *LAuuj (Jj9 4x jl j ^lillAl j q 

CjLLuJI 3 ^ J ^Jg CIjI jjx!a]| L_flLiu£l ^aJJ aS\ 4ij^)Jall O 

^aJJ A-Ijljud^Jl 


(JllLa 3 VI 


:Implicit ^MVu^b cjUUJ) £)jj) 3£ Jjj* 3 :Jlla • 

Ll oULki J) g-uijjl ^ ^Ul Jj£JI J^- 1 

:t pt 3 ll JjSlI c-iSSI- 2 
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Forml.vb* □ X 


O^Buttonl 

¥ Click 


33 



£ 

34 

T Implicit conversion - dangerous 


35 

Dim myValue As Integer 


36 

Dim myOtherValue As Double = 3,14 


37 

myValue = myOtherValue 


3S 




39 

.‘■essageBox. Show(myValue)| 


40 

End Sub 


-z 

41 

End Class 


o 


(sjSlill cjjb 2 J^) Integer myValue ^ 35 lit - 

j (ejSljJI dub 8 di-AO Double myOtherValue 4 : 36 1 - 

3.14 ^ lS 

myValue myOtherValue 4 : 37 - 

(•—4-? 2 <41 8 t> 

<4) (^44 2) Integer c> myValue <_$44^ 4«a 41 ^4^ :39 j4JI - 
String J) ^ MessageBox ^ Show 4:>4I ‘-u^ 1 )String 

dlljjatiLall pljjl (jyj (Jjj^all (j- 4 AylaaJI ajlA Vil - 


MessageBox.Show 39 j^4I 

37 1 

myValue->(message) 

myOtherValue -> myValue 

Integer (2Bytes)->String (lByte) 

Double (8 Bytes)-> lnteger(2 bytes) 


h q Forml 

0 

ss r 



Debug 444 3 


Button 1 


a £/ - 


i 6 i 


Label 1 



"3" j jfrkLu ; Button 1 ^ - 


J] lSj^ 5 V) 3.14 (jl (3^ ^^11 “ 

Double Cy* ciAiLnll ^ ci^ 4 Jaii "3" 

uj^ Lh 3 j*^) Integer (j^ csj^) 

4ii^)iaJ 01)1^1x1^11 JjjViti A-iLoC. jn.i tillil j 

ciiUlij :& J] jS 43 V simplicit 
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LglLal,^*! J j l^cd j CiljjaLLall -^1^)11 (jjoj.i]| 
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Double 

3.14 
(8 Bytes) 


Integer 

3 

(2 bytes) 

Line 37 

Integer 


String 

Line 39 

3 

-> 

"3" 


(2bytes) 


(1 byte) 
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: Explicit CjULJI £lA' £jj JjjajII J& ;Jli« • 


</* \\ qjWl a j^ll (J]_ 

' m( Jd\ jj^ll cJSI- 2 


Forml.vb* 



^ n x I 

0^ Buttonl 

- 

9 Click 



39 

40 

41 

42 

43 

44 

45 

46 

47 
4S 
49 
5® 

51 

52 

lOO % - * 


’MessageBox .5 how ( myVa1 u e ) 

Dim firstTextBox As Integer = ® 

Dimi secondTextBox As Integer = ® 

Dimi result As Integer = ® 

firstTextBox = TextBoxl.Text 
secondTextBox = TextBox2.Text 

result =| firstTextBox + secondTextBox 
labell.Text = result 


End Sub 
End Class 



Integer 4 3 A;j4 4 43 j 42 j 41 jA4' A - 

TextBoxl A AkAI LlA' ^ firstTextBox jA^I csA 2 ^ : 46 j 45 A - 

secondTextBox A-4L j 

jA4I L> A^ lsA 5 ^ result jA 1 ^' <_A : 49 j 48 uhA 1 ^' A - 
‘ (Integer j Aj') SecondTextBox + (Integer j ^J)firstTextbox 

result 4 jA^ La <_paLabell j ^'^ l j 

Debug A' J*-L jiiSl 3 




A) integer Jj=s ^ 4 A ALJI5JVI JiL textbox2 j textboxl <_sA^ 4 

(JjjaJill A-jLac. j ILLuj cijIaixIaSI jj\ string 
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C>4 


r lSjVI c> 




Forml.vb 

▼ n x 

,> Buttonl -| / Click -| 

39 

'MessageBox.Show(myValue) ^ 

40 

*■ 

41 

Dim firstTextBox As Integer = 0 

42 

Dim secondTextBox As Integer = 0 

43 

Dim result As Integer = 0 

44 


=> 45 

firstTextBox = TextBoxl.Tex* 


- TuvfRnv") 


i -^ai iviy rfUJcCr 
1 Forml.vb 


I InvalidCastException was unhandled 


»xt) 

Text) 


Conversion from string "five" to type 'Integer 1 is not valid. 
Troubleshooting tips: 


When casting from a number, the value must be a number less than infinity. 

Make sure the source type is convertible to the destination type. 

Get general help for this exception. 

InnerException: Make sure your method arguments are in the right format. 

InnerException: When converting a string to DateTime, parse the string to take the date before putting each variable into the DateTime object. 


Search for more Help Online- 


Actions: 

View Detail... 





jjxiall aLsj V ^jA "five" ci)l ^jjjju lS^ j ■ 

Integer 
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^ (Jaxj .4 

[(jAijsu j t CjIjjaIaII j ^.Uj Ig Vua clslij^ull (J-^u 

qa U^iat expression j statement 

1_La2 j ^till ^jS]l UjjS | jj 

Dim x As Integer 

x + 3 _ 

(jjjjl j Expression j* 3^^ ^jSl! Cy* jV cdlj j <. Ua^. AiiiJn Aic. 

.Statement 


lUgjjlJ 3 jAxj 0 


Statement 


j^Expression 


j| S^lil 

A-iLoxj Si S^li] 


J** jlJla j! Ajjja. Sjbfr ^ 


Dim x as Integer 

Mylnteger=3^U^^ j^*^' <j^ j' 

j+y j 

MessageBox.Show"Hello world"^^ 

j . V- ^iL^. jt 


ujUloxIb jkD SjVb * £ a j 3‘* O^i 

4_liLui^J| 

(JjUiaaJl jjLui j j • jia CliUlaC' qauSlL 

4_ulutaJl 

:^uil Jti*M ^ ji 

Ual.?Uaa> f j 2>3 


:Expression-il - 

dl^LaL*-a jl dll^uLLa ji CIdIjj ^jj^allaJI e^A ClulS £.I^juj) ^jj^aLiail ^y> 4x. j-aa-a iajj jc. o^jLjA j^A 

^jj ^ l$ jj a. » j £-* a w'lU'io ^a.1 jJI expression ci>UjL« jjSj jl A 3i ^ -LjUij j ( 

. (data type) ^ -Mj^' uW^' 
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^J^.5 


jOK jj AitjJal i *UiJ 

Slc*l^<a Lk*l}*laaj 4 ClAjLnll (J-I^julL ^jQj^^ 

§ 4 A^Ui^'l 
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'LaJjLa.I 

Ula c State me nts-i' _jioia c j jS]( c.Uj Ajlac. jiiS! j^-a*. iLuj ^ 

jl <—italil V] ^ U Statements-" ch j-^' ls* 


£>' J\ q* jaSI ^Expressions jStatements -"a «■ jaJI £?>'j 



AJiLaV' (j-a 


.Aj^Jiill cUaJlBranching Statements .1 
ajjIjSjII A^aLJI JxlsJI Recursion Statements .2 
.<j?tilljjii* Arrays .3 


Recursion Statements 

AjjIjSjJI AjjlaJl J^aJl 

Branching Statements 

j£]| ilijj ^ jl j£j 1I U1 ^joua £ Jill ui 

(jLLe£ *LLe j ClAjLiill ^e j^a'N^a 

AliUJl 4 \\aC* ClAjLull 

£0^ ji ^ ^lajuoj 

expression lsja^' j'aLJI ^ t-u^ ^jSII 

;AJlai 

[tllblayi Alla' 

For Each .1 

If....Then .1 

For ...Next .2 

Select Case .2 

Do While...Loop .3 



! leSSOnS A-bajoj J ^'<\l £j\j (J-*^ II ei& ^jc- Jj^all Ai^)*^al 


Fomnl.vb [Design]* ▼ □ X 


ListBox 

^CllliLjaj - (Jlflj — (Jj.a^.a — ^ yiS«a ^)jjj \ «aS(_g 


TextBox 


Button 
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ComboBox 

^Aa^.1 — ^ jAaa — Aa^a^^Ic- jSjfi'* J 
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If...Then J-^l.1.2 


J 


I SL& 


pJJSJ L. 

r **** * 


A£.ja^ a ^.ic. jl »« tij La jjjS j 4 jj* Li'i 

.expression 

Button 1 ^ J131I •ijSlI 



<lLu.j j gJvLu ComboBoxl Lh ^JL*. ^ <ji If...Then ^j 

End If j j ‘Then -ijaj jLii.! ^c. <lLa. ^ ^ dijii.1 jal" 

.If..Then *4-^ M VB-S' <*M statement 4-A^j 
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^gk <jj£j ji |f..Then cf- <^) 



‘ “ )3a Jjajj Clil jJa^. 
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ComboBoxl.text 
ComboBoxl ^ 





Cj jli-l jSJ" 3JL-J 

If ComboBoxl.text="^j-^>" 


Messagebox.show =". 1 *^ Cj jii.1 
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jbikl Ljajl j 4 ^JalLuj ^)Liii.l *lic* 4 AiC* 


l^llLa CilxA " <SLuj^) ^JalLud ^)Llli.l 4 ” <SLuj^) 


: " v ii 

lui ^ 


MjbiLl 
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Select Case,:^w*^' J^'.2.2 

If..Then (JisLais 

: juii j jSli c_±si 


Forml.vb* 


^ n x 

JIJ [General) 

,i [Dec la rations) 

- 

21 

‘End If 


T~ 

22 



Jr 

23 

T Example 3 - case/select branching statement 


24 

Select Case ListBoxl,Selectedltem,To5tring( ) 


25 

Case ai J 


26 

Me s sage Box. Show lIjjJl^i iJJr 11 ) 


27 

Case ,f JL^j ir 


_ i 

23 

MessageBox.ShowC' Jl_tj LjjJLjl j-U 11 ) 


29 

Case Else 


a 

30 

Me s sage Box. Show ("jjT l_l_«^ Lj l j_LJ") 


31 

End Select 


— 

32 




33 

End Sub 



34 

End Class 



35 

r 


■*■ 

100 % - 

rrr 

► 



a1 (jjkliu) ListBoxl.Selectedltem.ToStringO ^ listbox - 

j H (JListBoxl cl^ "JAic* ajI ^^ j 

IWjj Ale* Lai 4 "JUj" Ale* I^£a 

^-Ic. UaI^] (J u>iQ*i ^ilaJjudJ V J Aj j9 JaULl a ! ^<jl A i \* Loll ^^)jai Ajlg-1 ^-9 

>ljj£i]| Aj\^C> (Jc* jlill J Jj£l L-Jj^Iill L-LouVI jA La JJ^I L_fl^)xlaj 4 

■jtf 
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Arrayscsj^a-ai' Cj1jj*1a.3 


jdilLa jl 4 La AJLjlaJ l sun jlLa CIjI jjaIiaII 4JLjla ^A 

j 4 A-ilj (J^11 a ! (jLiJ ^LlujVI L>* ^ c-t.C'j ) Cj iLLiJ 

j jLxjuoLj ^lojUs jl aw^ ^jL^iLcI ciA^^p Lq«v\ ^ilLa Array ^ o^-j 


■ mLs \\^\\ ±j<s\ Jj j^\ array 


Forml.vb* 



* n x 

0*^ Buttonl 

- 

/ Click 

d 


32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 


T Example 4 - Sized Array 
Dim myArray(2) As String 
myArray(0) = " jj^j 11 
myArray(l) = " c j 
nyArray(2) = "^j-a 
MessageBox.Show(nyArray(2)) 


End Sub 
End Class 


100 % 


34 jlaJl 

Dim: u^-V ts* 

myArray(2): myArray: ( a - LU ' (2): (_sjia~<J' ^jSI cAjLJI uc. 

As String: (u^j^ ^ isj^i) eA“- j4^' 

37j36j35 

myArray(O): (1 fSj ^ <^> = "****" _>*!*!' cjUjia^ 

myArray(l):2 ^ >1' j4^' 
myArray(2):3 

38 jia-JI 

MEssageBox.Show(myArray(2)) 3 ^ >1' cjUjia^u 3JL«j jig-lab sii) 


^JLi]| J£jai]| il 
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^JJ j CLq 

myArray(2) <j_& ^ 



jla-all) CjljJsCLall 

(2) 3 





^^xl\ <j\ 2 Ajc. jill CIjIjjxIaII Uj^. UjI ^ ^c. jll - 

0 (J^ uV 3 A-ic»^)ill djl^ixlLil] 
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;3 ^lai laijoi t debug J.: ; "''"v Iia3 IS] 



I^^jjjLuoVI ^ eAiC- f'^ c ' £jlj LS^J* Jjill IjjJC- 


IS! 


Forml.vb* 




* n x 

gV Buttonl 

- 

4 Click 


Jj 

32 





Jl 

T 

33 


T Example 4 - Sized Array 


* 

34 


Dim imyArray(2) As String 



35 


miyArray(e) = ” j_* 




36 


myArray(l) = " eJ 

iLAJ 11 



37 


myArray(2) = " j I 11 



38 


myArray (3) = "u 




39 


MessageBox.Show(myArray(2)) 



m 





— 

41 





— . 

42 


End Sub 




43 

End 

Class 



— 


(jjllaj ^^)Lk fjC* ^jjilLo .1 ^.jJ (jLj -liSJ Oak 4Jl_ui^) ^Jaluit 0<aO^)jll <Jj 


j&u Ua3 


U. _ 

Forml.vb 




» n x 

Eluttonl 

- 

f Click 


32 

33 


1 Example 4 - Sized Array 

± 

a 


34 

35 

36 

37 

38 

39 
4& 

41 

42 

43 

44 


Dim myArray(2) As String 
myArray(@) = "j^u" 
myArray(l) = " j-j uj" 
myArray(2) = " l ” 

myArray ( 3) = ” \ " 

hie s s age Box. 5 how (myAr W^W?^ 


End Sub 
End Class 


100 % - * | 


^1 WindowsApp 

i : =*l My Projec 
: H Forml.vb 


4 IndexOutOfRange Except ion was unhandled 


Index was outside the bounds of the array. 
Troubleshooting tips: 


Make sure that the .maxim um ..index on alist .is Jess than the list size. 
Make sure the index is not a negative number, 

Make sure data column names are correct. 

Get general help for this exception. 


Search for more Help Online.., 


^^juoLuiSM 


"Conrad”j ’"Grant"} 


Actions: 

View Detail,,. 

Copy exception detail to the clipboard 


75 


statements <-U4' 

















































































algoharism.blogspot.com 


Microsoft Visual Basic 2010 Express-^' ^ 




AjA 


ilihssdl 

(JjAj ^gsA\ AAxIaII ^1x1*11 A4 jLj£J 



CllAJ <Jl 6 Ajj^Iill 4 jUc. <j!)Lk tkAAc* jjjxj jl ^ AAc* Cl 

^g jlLiJ ^Llx^aJ <SLuj^) ^JaJjuo AdGbU§ cJii-CuJ AdC* j 4 { } cJ^Ia Clll^)diAA]| AjIj£ 

■3 C5^J^' 
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for/each 4 •1»4 j 

J(_jx £. 3 ?“ ^LLLJ Jx^JI (jl (_jx 3_$VI s.3?^ LiS^jC- lx£ 

l^ui! tilli i L$ 3 u jjilix ^ gC- j3 jjilix (J^ cs^ 1 - jl 


Forml .vb* 




^ n x 

Buttonl 


/ Click 

- 

44 




± 

45 




* 

46 


* Example 6 - for each guv 

array 


47 


Dim myArray() As String = 

{” JLJu7tJJ 1F j. 11 lLlJ 1 ^ 11 l 5 j_a jjJ 1 " J "l 

—i" } 

4S 





49 


Dim person As String 



50 


For Each person In myArray 


51 


MessageBox,Show(person) 


52 


Next 


□ 

53 




M 

54 


End Sub 


1 _j 

55 

End 

■Class 



56 




- 

100 % - 

*l_ 

II! 

_J 

► 


person j ‘ cii^' ^*1* cs^ J^* 1 ^ myArray ^ ->j^' '^a ^ 

3^^ (jx e^)x (_]£ ^ A^J j gC. jfi ^jjxjx 50 ^)^*“‘^' AxI^^ILijjI j ^gj^j _jj*jx£ Ljajl 

^ jis£! ^person l $ 3 ^j *<_£ ^ ^Jbuij for each ^j^' 

H 


o'- 1 Forml 


IbI; x 1 




AjlgJ ^5^ (c£ jjxIaII Ua)< 1 AK^'l Jj£Jl ^ J^) Sjlxk <j£ <j£iij ^ <^1 

■ jIjSII 


77 


statements J^?J' - -Ji'xl -v\l 



















































































algoharism.blogspot.com 



Microsoft Visual Basic 2010 Express-!' ^ 

for/next .2.4 




♦* ** 

JjoU 


i^Ull JjSII 


Forml.vb* 




T n x 


Buttonl 

- 

- ; Click 

- 


53 

54 


T Example 7 - 'for/next 1 

T 

recursion statement j 


55 

56 

57 

58 

59 
6& 
61 
62 


Dim i As Integer = 0 
For i = 0 To 5 

MessageBox«5how(i.To5tringQ) 

Next 


End Sub 
End Class 


□ 


£3 

100 % - * 


rir 


0 j integer i ^:56 

s^Lc. I ^jjjuo ajI L<us 4 5 j 0 £y* i aj^^j i 58 j 57 

44 s 5 J] 0 t> f^J j^“ ®J-® ^ j 5 jjill 

.SjliVi 159 ° 

:for/next j^' ^ 
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j AjjIjSSII <>aJI o# CjUjSjj .5 

IAiLoj j iA x a]*\a L^Ia^ILojI Q^ x } (J-1J CjLA jjII ^j^ixA 

:if ...then jfor/next ox 



1 1 j£JI ^ cijULnllj a w j myArray l$ jjil* i qjj»" ; 7 1 

integer i A : ?3 

<iaja j 0 aii>u 2 j for/next ja j jjAIaII ;74 

J] j'j^ <-£ t 1 - (myArray.length) csj 1 ^' ^ ^ 

.L-JJJJjlb jjxIaII *L<ua 


^ j myArray ^ ^ <jj^' ^Arrays-!' <^'j - 

(1 (j-*a3U) jj£ll l_lljuo Aijx^] myArrayO <^1 jSi ox <^1 

|j) <d if...then s^liVI t> uj^ j for/next i£j^> ^ :76j75 

"^jAj^JI" 4^1! J] (myArray(i)) ^ 

(j* j j Ajjl^illl (j* ^Exit for 1 77 

.if., next 
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.for jif lUJ ^ ;79 j 78 


^i7 ^p j£il jj j i i^tl i uii l oi< 4 ^aU jJI Aiili a Aac> *t 

i jT^> .(don'tdebug ^t^ J^UjJt JAAL 



for 

jf Alo^il 


J j (j ^ < * <■ .'-v 

jjjtla]! ^»j 3 J^C. Jia. 0 c>® > '.V“ I 

1 u-aSlj myArray 

3 J, o t> = (1-4) 0 t> = 

(jjSj ji Ja J 

myArray="L£ j* j^'" 

myArray(i) 

‘^jVI *LL<a <_Jjtl^tl ^j| jinXtl ^liiLaiijuj 1 nLaJl <j-<a 

j <. ima. niyArray J^Lall J "<_s j& j^J!" jUik^U j j] 

; for 

0 ® 

myArray(O) 

^ jlf^J J 

II K II 

■ ^ 

J J Jj jf ^ JUij U* 

JUll sJiJI Jj 

1 Sjixk 
myArray(l) 

csr* J 2 f&J J& J 

II k II 

r jj^q 

j J J$ jf <*-* JUL U* 

JU11 Sjkkll Jj 

2 Sjkl 

myArray(2) 

J 3 f5J jbikVI 

"u j» J»JI" 

Ji j£J| ^10 1*1 ^JJjujj jf -lajjui ^ L LujI Vi 1 

:J13» 

Ajj^aJ jLgJal 

j (j* j 

IgJU^j 


ikL AjV jjill Jc- 2 Jl J&jj jj u' debug 

j 0 (j^ 3 jt^^tl L^jJalj (j^-j ^ cdlil \iit 2. j 0 S^ iit j^ ji.1 djL<iiLu 

_A^uJal j\\ c1ajI£ 2 SjJ^^ti Lojj J_ 


(ja i-*t*i^xn L<ui 4 Aijlall 6^gJ (ViSU3l B3SiC-^ jj ^jj jjj^tl j£bSJ La LajL 

'£.Ua^.VI c_flLuu£l Ajqj^ J jJ] ^JLall A \kj& 
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select case jfor/next ox ^ 



j o j s^lil Aiijj ^Iluj button 1 ^ Aic* ^Cy* 

lg-J AWljxti jlj^J l£ C 5^ J 6 1 listboxl jA 

^.\c> ^jWMLj j (JjxjJuIL jj£I 4 jbikVI 4jx«Vi (JjLujj <1 jg )Vi\ ^Vu^lt 

j (Ctrl <_>“jCJC S^- 6* j ) listboxl ^ 6* 

.£ j& C»^jc. buttonl 
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■ (I)* ^ <11 Jjiu IAjI — i 

ijVl JU^y -2 textboxes - 

<auis jL 4 ( x^>; ^jSII ^gic. :J^i^|istbox 1 - 


textbox ^ ^jVl ‘■4-^1 ^c. ^jiu) listbox-1' ^ j^VI 4 


jjill u&\ 


■5JU1I kxLj*A\ CjUWII 


+ 

- cj^ 1 ' 

t 4 _J jJol\ 
I A xuuqti 



.4.ia 9^) (jV j Lg-ljJ (jj^la j 4 ClAijjxlill 

Ia jA^b i\jA\ ^ j Array l$ja iiL* ^ Dvd ^LgjujL 4^li -2 

^9 j ^^jia^)Crl 4 dAgjW 3 cJ^ (J^ ^ 

j {At* uj^ 3 u' <Jj^ j label ^ j <4^ <-£ o^j^' j ‘ label <_4 <^Uil' 

_4j (j^aLi> ^)iajuo ^_9 d^)Xjuo 
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Jjl Vnm Cilia. <J£] ^ 

c^IuUJ (Jl^a^flll Ajd ^2 (J x \^ 
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LHI.l 


^ja HjLuj ^J ^ 9 il (JjLaAuj 

qa jj£I ^start menu jjaLjj 4 ^lA\t ajIaaII <La IS ^ ^U^ll ^lial 4 Iaja^ IAjI 

Microsoft Visual Basic 2010 Express 2 ^^programs 


MyFirstVBApp ^paJI jA\ jWindows Forms Application New Project 
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Containers ^ <> ‘ ^ «^l J ^ Jc- Toolbox ^1 ( -a a ^ .1 

TableLayoutPanels 


jToolbox 

[> All Windows Forms 
[> Common Controls 
J Containers 
1^ Pointer 

FlowLayoutPanel 
GroupBox 
Panel 

SplitContainer 
TabControl 


▼ -P X 


□ 

□ 

m 

□ 


Hi TableLayoutPanel 


> Menus BiToolbars 
0 Data 


[> Components 


|> Printing 
> Dialogs 

0 WPF Interoperability 
0 Visual Basic PowerPacks 


^ j clFTOOl bOX<J U • 

Ig-La C5 l&Vl 


» -P X 



^ ^JaJjuo W AiLjal XlC* 


Forml.vb [Design]* X I 


■S-Forml 


"II r^i II ra I 


TableLayoutPanel Tasks 


Add Column 
Add Row 

Remove Last Column 
Remove Last Row 
Edit Rows and Columns.,, 
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jLikl ^ iSh j UiUJI Q* QjJ)t I 4 -uUJI ^gk properties ^Jl .2 

0 I ^ US TableLayoutPanell 


Properties T ^ X 


table Layout Pa nell System.Wmdows.FQrms.Tab... » 


111 |£ i U / 


Jc- ^ None propertiesJ' ^ Dock U^jUJI Jj <_*a] 

C5^ US fi|| jlUi-VI till j^kilJsuoi jVI 4 CjL g_J c*U ^jg kM ^g a Ail I 




Properties 


▼ ^ X 

table Layout Pan ell System.Windows.FQrms.Tab... * 

4=: 
i -A! 

ill 

ill 

* 

'■ 1 


Content Menu Strip (none) 
Cursor Default 

Fill 

Enabled 
IH Font 

ForeColor 
GenerateMember 
■Grow Style 


None 


3 


Dock 

Defines which borders of the control are bound 
to the container. 


^ ^ TableLayoutPAnel u' «^u cjl^Uil ajc. 


js j < 


d »9 Forml 


JJ In k ti J SAaC*) 


! = 1! a H SU . 


] _ 

TableLayoutPanel Tasks 

Add Column 
Add Row 

Remove Last Column 
Remove Last Row 
Edit Rows and Columns... 


•>jjJl ^ Jj US TableLayoutPanel j 

iC> ^jl a.jI's 

jikl j a-1aj^3a]| SA^Ij l_iAA| .3 

^ TableLayoutPAnelJ' 

Edit ^ 4 a1c* JaijJal \\ 

; JSUll US Columns and Rows 
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A laJjJal j Columnl ^ ‘Column and Row Styles siaU 

ok ^ ‘%10s J Row2 j ^oSCKt 1 Rowl j ‘ ^oSSm column2 j ^oISm 



PictureControl ToolboxJ' t> j J] .4 

.<>Vl ^ jU-jll Ui J j ^ AiljJaj ~*!j ■ ■< c g Jai-uiad! 




3-Ajli ^ PictureControl ^ da *.j 


Dock in Parent Container 


Forml.vb [Design]* X 



jColumnSpan J] <-*il ^ ‘Fill UlPropertiesJ' sdiaU ^ dock S^aUJt u' ^ 
.£J-a jl jl^>V Fixed3d J BorderStyle j‘ 2 J] 
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J- tool box J' t> checkbox .5 

JjjjjLJI jV) jLuljII C5 lLai]l j 4x*jli Jjt l 

.(pictureboxJW 
."jla" Jl text A-u^Lk fS 


containers Ac.t> j^' j toolboxJ' J) .6 

Dock in j J& ^ ‘ ajLl Ji J] FlowLAyoutPanel 

parent container 


j*^Uc <_ sJI^j j' u^ 4 ' i> M FlowLayoutPanel a^=>j 

4 jl^.1 Ua l^^lkludluj 4 jjiajuj L_JJjJ (Jl Ifrl^Luia jJdiu J 4^uJal 

o'jj' 



: j!jjvi Ail 

jbuttonl )j'jj' 4 j toolbox J] FlowLayoutPanel j^' 

. FlowLayoutPanel J > >» ) ^ (button4 j button3 jbutton2 
e^'" J j "-1 JjVl jljjl property siaU ^ textJ' 

."jiti" j\\ j "aja±i i jji K n ^rj diiiiiii j 

a^UJI flowdirection a^U. J] c_ja il t J jjVl j 2 

,jl^' Jj u?Jl t> JjjVl sliLa^ RightToLeft j^' j FlowlayoutPanek 
jl^alLudlj j] Ctfl JJ C5 ^ 4 jj ^Ac, (JjJ jLallj ^aAc* 

SiaU ^A] L_1AAI 4 jljji 3JI A-jlj ^Ac* 

Ujjfr j autosize fj properties 
.Ulili jljjVl ^ True-5 


.7 


■? Forml 



'■T. g T.T.^.T.T^S[ I 


LAJw ■■[ S ;> A a-* ■■ H 



cillA <jjfLA 
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<4^ C5* f* 4^ cW cs 1 ^ ill ^3 S3 s-LojojI A-lLoCr ^3 iAiLuj 

j (Name) 4*^^ c31 4 <->*l4*4 "<3^'" jJ) t ^LojojI IaiLoj t3 j£JI 

j showButton J jj £* 3MW 4 J closeButton c4) 

. backgroundButtonJ "4^' j clearButtonJ 
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Ljbu JA k l^U 

c. l gua DislOgBOXGS CjiIju^g 

_(jVI AjLuIjLj ^ajiLLud j 4 

j OpenFileDialog j Dialogs t> j^' j toolbox ^A' 1 

:c5 jVI£ 'jj^A ColorDialog 



4^' Filter properties cA j OpenfileDialogl j^' 

JPEG <SUU (*.jpg) | *.jpg | PNG <ail» (*.png) | *.png| BMP <ait» (*.bmp) | *.bmp | «aiUlt (*.*) | *.* 


jj^l :Title a^U. j 
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^aLkll Jj£]| aAj& C ljul Ua 


Jc. (j-lllaijJa ^jUlb hk JVl j SiaU L-JAALoj 4 shOWButtOPI IAiLuj- j_ 


a c > 4 :l}j£i]| siaU Jim] "SjjjuoII showButton 



Jja^j ^aiiuj OK jj I**-*-** j OpenFileDialog a* t -*h jt aJU. ^ <_$! 

.PictureBoxl ^ 


iai^al ^ clearButton jj JnxjJat j SAalj L_1 &aI- 2 

;Lm^l j Jj£Jl SAalj mA Alii ^jjjILiLq (jjlLijJa 


Private Sub clearButton_Click() Handles clearButton.Click 
’ Clear the picture. 

PictureBoxl.Image = Nothing 
End Sub 

a jjll JaxjJall AJC* S^)jj^a]| ^joj ^i Jjl &Lm<a j 

: "AjiLkJl jjlia^al" backgroundButton ^ j- 3 

Private Sub backgroundButton_Click() Handles backgroundButton.Click 
’ Show the color dialog box. If the user clicks OK, change the 
' PictureBox control's background to the color the user chose. 

If ColorDialogl.ShowDialog() = DialogResult.OK Then 
PictureBoxl.BackColor = ColorDialogl.Color 
End If 
End Sub 
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.ColorDialogl ^ uj^ 

:"c3 ii '" closeButton ^ j- 4 


Private Sub closeButton_Click() Handles closeButton.Click 
’ Close the form. 

Close () 


End Sub 


: checkbox ^ j- 5 


Private Sub CheckBoxl_CheckedChanged() Handles CheckBoxl.CheckedChanged 
’ If the user selects the Stretch check box, change 
’ the PictureBox’s SizeMode property to "Stretch". If the user 
’ clears the check box, change it to "Normal". 

If CheckBoxl.Checked Then 

PictureBoxl.SizeMode = PictureBoxSizeMode.Stretchlmage 

Else 

PictureBoxl.SizeMode = PictureBoxSizeMode.Normal 
End If 


End Sub 
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UJ^ IVl^j (^JalLaui £Jj^a A \k& ^\aVud 4 j9j^s l qj^"udUd SjJa'slt ^9 

B C^LaUJ (J!j'Vjqlt 

U1 Publish ^ Build ^ ^ <£jjL 



jjoij A-j9 Ajjj Jill jLauJl l_u£I 
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j J (jl ^ ^; 
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.2003/2002 j cJ_$VI l — ^^gJVI l_luiI^JI <..*' 

.2001 sUa aIia — JjVl (_g j i^u^ll — Visual BasicJl 4*1 j j^l 

- cja^jjljU glj* Visual Basic Express 2005 cAajjajs 

.2010 - http://msdn.microsoft.com/en-us/beginner/bb308891.aspx 
http://msdn.microsoft.com/en- - ^4jjli* <> MSDN £*j* 
.2010 - us/librarv/dd492135%28VS.100%29.aspx 

- A^a^ll diLiuiLuil i >»' -v ^ j Sjljj 

http://knowledge.moe.gov.eg/NR/rdonlyres/327B0AF2-677C-459F-B6C7- 

. 2010 - 6F2A6708E9DD/15719/1672009.ppt 
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.A Ij.lvl { 1 j 





.a!^4a1> J* Si^L* j^dt CjUL^lI' JLul (t 
.(Cil^d!) JaJl Ci!jkk u*daC (® 







.jaJ! Algorithm p) 



v_v_ rja 4U«i J*, ;<])&* 


r ax 2 + bx + c = 0 

A^j&t Ajbjill AJjUla 

f jjtjlll fljttjg iliU-ll <>Ciljkl 1)4*2 

: aJju-*1i j j j* 

x1,2= (-b ± (b2-4ac) A .5) / (2 a) 


1 








3 / 12/2011 




f jja, JUjI AUau ( > ) 

XI, X 2 *eU» (T) 

.a, b, c ^ (r) 

>ji ou*ji jut] (t) 
■**Ji V 



:JaJI tlitjlil Jjiaj («) 
jlaJ! Jiuii JjaaJI 4-»j4 cjLua . 

M = b 2 - 4 a c 

:M '<*£ - 

.Ja. I4J o-J AJjIxaII Ij) AJLu. ^*l£ |j| 

,il)bL*lJ oij^ ^!U» tit a^>. A^ill uU tjj 


2 
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:JaJ' Algorithm (i) 
.a, b, c ^ - 

.m JjaaIi v 1 —^ - 

A1»jS jLSil - 

.xl, x2 ^jia. <4JS ujUa - 

.xl, x2 gjlalt ^C-Ua - 



jiij dJjJfr Jjiljla ^UA 

.IPOc^ i 

.jftjiii Lit> i 


3 
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x1,2= 


ax 2 + bx + c = 0 

sain a* 

IPO ■»■*! 

.kill* j j 

ute 

(-b ± (b2-4ac) A .5) / (2 a) 


4 
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rMw Chart l 


J"* 3 u 6 - <** 

\t±i iAK^aII J*. Cl)jiaL <-ujJ j 

ilAjLutll tujUUjJl JULj) ^ 

ijIaj^aII V^*3 J f * jflU >a\1 j AojLmaJI 

,4K*aa1I Ja JIaj 


5 
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Terminal J y / 


Input / Output j yj 


Process yj 


Decision * yl ii*' /j 
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JUKjt ■* vfa>»V -w ntj&fr 


.Ifdljia* £*2 4 ja*ji 3 l r jJajj «Jol_^ I 

>-*31 <> Aia*>3l JliiV g^l>«YI sUJ>’1 | 
.Ji-i J*\ CAS (W 1 tp! 

.Las iaIj oLaj! La. Al* £ja^ j 4 j i 

.IaI j »IajI La Aj Ja^ jljilt jLiJl jS*i | 

.(V / f*j") <-* £>*>■ 


£jIa Ja) j *Iaj' La Ai Ajt^U ^AijJall j*jl1 I 

.A*l+iU ^Ajlall >jJl ^ 

Jliii £• J^iu AAL*t >j f UA**t JJaL 1 

.gjLji £Ua- aLjjaJI 

AjaajA umIS \ 3} JL^SVI ji L^j!) J*j ,r ] 

.AaL* 4 > jisi £Ua 2 j *J^S JAJiil 

4^>-* JA4A £j 2 JJaij jlJill aLjja *a | 
.IfAjUj Jj>* A^Jalj5il aJl, UjLIaIj 
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.SjgSll Jjti AjUS JjS Juj I 

.g^LJi jjl\ ^jjj jLLii Jjmj | 

.UjL— £jZ ^ JC-L^j JaJ 5L.li I^ | 

j' </* Jj& H* </* 1 

J^lLi lf-1 JaJ) ji | 

. 14 x 4 jl3 Ja'j 

jtijt-i fU^V! ^ J*L-1 , 

.^i»jJ» AJU-aj Jjjk3 JCLyu ] 



.5j^ill v^LSJUli Suisu. Ak^jiJ) >vs Jfl | 
SjIpV ^ Auli ] 

<‘«J 

,ij^S **j/ma ^ay JLii 1 a j^ ] 

. JaJl jt U!«su ^1 Ja—sLiS11 ,/ £jijJl | 
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a x 2 + b x + c = 0 

4 jj]t > iiiu- 

J» *1 jti ,^1 JiHil f«-J 

,jill <j* <IjUu 

x1,2= (-b ± (b2-4ac) A .5) / (2 a) 
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**fj*&s 


»jijaJi 14J jijj ^at jsjai ji 

<*j* UjfiU, U J\ 1*^5 j^k jLW 

S jtj^l 


j^jl£ Lap 

C = (5 / 9) * ( F - 32) 
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:je* 


t o Jji ^j) 

.4jwj^ill JUpty ^Jjft ^JP 

Sum = 1 + 3 + 5 +.+ 49 



ii 
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(jiajxJ 4 £j jla 
.4^4Jill CjUI (J4 4jJj2 



uj^lk^li juivi Jlu :£*ui£Ji i 

.(Calculate - Print - Read • Stop) IcU* Ifcioiii 

:J!u i 

Calculate Sum of two Numbers 

Sjc ^Ja2 $.Ulj Si*j Jlej ^ollj :*Jatiu | 

.Block IF 


12 











3/12/2011 




uli! jJuaII js-Jai j jju Cj)J fU*J jLui! | 

.*<>*»-• 0* J** 5 Aw 

AJ^— aj>-«a >4tjVt AjUS | 

.AaJsI jj aJsj-uj 


24j$>l>* 4*1J 


:Lf>4 "AjSjAw" J*aZ I 

.*411*4-- 

.A-U lj>.J fiii-5 v - 
.tdu ji y - «■->jit . a.a.-. y . 

.A*-* Ail i^4 5-Aj*! Jaw- 11 Alf- - 

:”jji>i>-" Je. iijj! I 
. 3 jalaII JSLIaI! <*al* f^ 2 !t w *mu AlLjjL ^jjSj i - 
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^ <bbu 


klJjn fvJa ij^ JjSjJ j** 4^la& 

UJ^ll ^>4 

:<blx4Ji ^Ip 

x1,2= (-b ± (b2-4ac) A .5) / (2 a) 


(1) Input Values: read a, b, c 

(2) Calculate m, Where It given by: 
calculate m ■ b 1 2 3 4 - 4 a c 

(3) Detect m value: 

If m less than Zero then 
print “No Roots” 

Else If m Equal 0 then 

calculate x * - b / (2 a) 

Print « xl ■ x2 ■ *\ x 
else 

calculate xl ■ (-b ♦ (b2-4ac)\5) I (2 a) 
x2 * (*b - (b2-4ac)\5) / (2 a) 

Print xl, x2 
end if 
end If 

(4) Stop processing 
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http://algoharism.blogspot.com/search/label > -r j: ^/ 





http://store.ovi.com/content/94223 





http://twitter.com/algoharism 


Twitter 



http://algoharism. blogspot.com/search/label 


SUS 

«* 


http://www.facebook.com/algoharism 




http://algoharism.blogspot.com/search/label 
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